home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / pcboard / hb_ec21.zip / CNFN.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-01-03  |  11KB  |  620 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN002
  20.     Boolean  BOOLEAN003
  21.     Boolean  BOOLEAN005
  22.     Boolean  BOOLEAN006
  23.     Boolean  BOOLEAN007
  24.     Boolean  BOOLEAN008
  25.     Boolean  BOOLEAN009
  26.     Boolean  BOOLEAN010
  27.     Boolean  BOOLEAN011
  28.     Boolean  TBOOLEAN012(1)
  29.     Boolean  BOOLEAN013
  30.     Boolean  BOOLEAN014
  31.     Integer  INTEGER002
  32.     Integer  INTEGER003
  33.     Integer  INTEGER004
  34.     Integer  INTEGER005
  35.     Integer  INTEGER006
  36.     Integer  INTEGER007
  37.     Integer  INTEGER008
  38.     Integer  INTEGER013
  39.     Integer  INTEGER014
  40.     Integer  INTEGER015
  41.     Integer  INTEGER016
  42.     Integer  TINTEGER017(1)
  43.     Integer  TINTEGER018(1)
  44.     Integer  INTEGER019
  45.     Integer  INTEGER020
  46.     Integer  INTEGER021
  47.     Integer  INTEGER022
  48.     Integer  TINTEGER023(1)
  49.     Integer  INTEGER024
  50.     Integer  INTEGER025
  51.     Integer  INTEGER026
  52.     Integer  INTEGER027
  53.     String   STRING001
  54.     String   STRING003
  55.     String   STRING004
  56.     String   STRING005
  57.     String   STRING006
  58.     String   STRING007
  59.     String   STRING008
  60.     String   STRING009
  61.     String   STRING010
  62.     String   STRING011
  63.     String   TSTRING012(8)
  64.     String   TSTRING013(8)
  65.     String   STRING014
  66.     String   STRING015
  67.     String   STRING016
  68.     String   STRING018
  69.     String   STRING019
  70.     String   TSTRING020(9)
  71.     String   STRING021
  72.     String   STRING022
  73.     String   STRING023
  74.     String   TSTRING024(1)
  75.     String   STRING025
  76.     String   STRING026
  77.     String   STRING027
  78.     String   STRING028
  79.     String   STRING029
  80.     String   STRING030
  81.     String   STRING031
  82.     String   TSTRING032(5)
  83.     String   STRING033
  84.     String   STRING034
  85.     String   STRING035
  86.     String   TSTRING036(1)
  87.     String   TSTRING037(15)
  88.     Byte     BYTE001
  89.     Word     WORD003
  90.     Int      INT003
  91.     Int      INT004
  92.     Int      INT005
  93.     Int      INT006
  94.     Int      INT007
  95.     Int      INT008
  96.     Int      INT009
  97.     Int      INT010
  98.     Int      INT011
  99.     Int      INT012
  100.     Int      INT013
  101.     Int      INT014
  102.     Int      INT015
  103.     Int      INT016
  104.     Int      INT017
  105.     Int      INT018
  106.     BigStr   BIGSTR001
  107.     Declare  Function FUNCTION001(Integer INTEGER001) String
  108.     Declare  Function FUNCTION004(Integer INTEGER009, Integer INTEGER010, Word WORD001) Boolean
  109.     Declare  Function FUNCTION005(Integer INTEGER011, Int INT001, Int INT002, Word WORD002) String
  110.     Declare  Function FUNCTION006(String STRING017, Integer INTEGER012, Boolean BOOLEAN004) String
  111.  
  112. ;------------------------------------------------------------------------------
  113.  
  114.     Goto LABEL007
  115.     End
  116.  
  117. ;------------------------------------------------------------------------------
  118.  
  119.     Function FUNCTION001(Integer INTEGER001) String
  120.  
  121.     Boolean  BOOLEAN001
  122.     String   STRING002
  123.  
  124.     BOOLEAN001 = 0
  125.     STRING002 = ""
  126.     :LABEL001
  127.     If (BOOLEAN001) Goto LABEL003
  128.     FGet INTEGER001, STRING002
  129.     If (Ferr(INTEGER001)) Then
  130.         BOOLEAN001 = 1
  131.     Else
  132.         If ((Trim(STRING002, " ") == "") || (Left(STRING002, 1) == ";")) Goto LABEL002
  133.         Goto LABEL003
  134.         :LABEL002
  135.         Goto LABEL001
  136.     Endif
  137.     :LABEL003
  138.     If (BOOLEAN001 == 1) STRING002 = ""
  139.     FUNCTION001 = STRING002
  140.  
  141.     EndFunc
  142.  
  143.     INTEGER003 = 400
  144.     STRING004 = ""
  145.     STRING005 = ReadLine(PCBDat(), 29)
  146.     INTEGER002 = FNext()
  147.     FOpen INTEGER002, STRING005, 2, 0
  148.     FSeek INTEGER002, INTEGER003 * 0, 0
  149.     FRead INTEGER002, STRING004, 25
  150.     FClose INTEGER002
  151.     STRING003 = Trim(STRING004, " ")
  152.  
  153.     EndFunc
  154.  
  155.     STRING007 = Trim("", " ")
  156.     STRING008 = Trim(String(0), " ")
  157.     STRING009 = Left(Trim("", " "), 1)
  158.     STRING010 = Trim("", " ")
  159.     STRING011 = Trim("", " ")
  160.     If (Right(STRING011, 1) <> "\") STRING011 = STRING011 + "\"
  161.     If ((Len(STRING010) <> 0) && (Left(STRING010, 1) <> ".")) STRING010 = "." + STRING010
  162.     If ((STRING009 == "N") || (STRING009 == "A")) STRING009 = ""
  163.     INTEGER004 = Len(STRING007)
  164.     INTEGER005 = Len(STRING008)
  165.     INTEGER006 = Len(STRING009)
  166.     INTEGER007 = Len(STRING010)
  167.     For INTEGER008 = 1 To 8
  168.         TSTRING013(INTEGER008) = 1
  169.     Next
  170.     TSTRING012(1) = STRING011 + STRING007 + STRING008 + STRING009 + STRING010
  171.     TSTRING012(2) = STRING011 + STRING007 + STRING008 + STRING010
  172.     TSTRING012(3) = STRING011 + STRING007 + STRING009 + STRING010
  173.     TSTRING012(4) = STRING011 + STRING007 + STRING010
  174.     TSTRING012(5) = STRING011 + STRING007 + STRING008 + STRING009
  175.     TSTRING012(6) = STRING011 + STRING007 + STRING008
  176.     TSTRING012(7) = STRING011 + STRING007 + STRING009
  177.     TSTRING012(8) = STRING011 + STRING007
  178.     If (INTEGER004 + INTEGER005 + INTEGER006 > 8) Then
  179.         TSTRING013(1) = 0
  180.         TSTRING013(5) = 0
  181.     Endif
  182.     If (INTEGER007 == 0) Then
  183.         TSTRING013(1) = 0
  184.         TSTRING013(2) = 0
  185.         TSTRING013(3) = 0
  186.         TSTRING013(4) = 0
  187.     Endif
  188.     If (INTEGER004 + INTEGER005 > 8) Then
  189.         TSTRING013(2) = 0
  190.         TSTRING013(6) = 0
  191.     Endif
  192.     If (INTEGER004 + INTEGER006 > 8) Then
  193.         TSTRING013(3) = 0
  194.         TSTRING013(7) = 0
  195.     Endif
  196.     For INTEGER008 = 1 To 8
  197.         If (TSTRING013(INTEGER008)) Then
  198.             If (Exist(TSTRING012(INTEGER008))) Then
  199.                 STRING006 = TSTRING012(INTEGER008)
  200.                 Goto LABEL004
  201.             Endif
  202.         Endif
  203.     Next
  204.     STRING006 = ""
  205.     :LABEL004
  206.  
  207.     EndFunc
  208.  
  209.  
  210. ;------------------------------------------------------------------------------
  211.  
  212.     Function FUNCTION004(Integer INTEGER009, Integer INTEGER010, Word WORD001) Boolean
  213.  
  214.     BigStr   BIGSTR001
  215.     Boolean  BOOLEAN003
  216.     Byte     BYTE001
  217.     Integer  INTEGER011
  218.  
  219.     FSeek INTEGER009, INTEGER010 * WORD001 + 16, 0
  220.     FRead INTEGER009, BIGSTR001, 1
  221.     BOOLEAN003 = (Asc(BIGSTR001) == 0)
  222.     FSeek INTEGER009, INTEGER010 * WORD001 + 22, 0
  223.     FRead INTEGER009, BYTE001, 1
  224.     If (BOOLEAN003) Goto LABEL005
  225.     If (CurSec() < BYTE001) Then
  226.         FUNCTION004 = 0
  227.     ElseIf ((CurSec() >= BYTE001) && (ConfExp(INTEGER010) && !ConfReg(INTEGER010))) Then
  228.         FUNCTION004 = 0
  229.     Else
  230.         FUNCTION004 = 1
  231.     Endif
  232.     Goto LABEL006
  233.     :LABEL005
  234.     If (BOOLEAN003) Then
  235.         If (ConfReg(INTEGER010)) Then
  236.             FUNCTION004 = 1
  237.             Goto LABEL006
  238.         Endif
  239.         FUNCTION004 = 0
  240.     Endif
  241.     :LABEL006
  242.  
  243.     EndFunc
  244.  
  245.  
  246. ;------------------------------------------------------------------------------
  247.  
  248.     Function FUNCTION005(Integer INTEGER011, Int INT001, Int INT002, Word WORD002) String
  249.  
  250.     String   STRING015
  251.     String   STRING016
  252.     String   STRING017
  253.  
  254.     FSeek INT001, INTEGER011 * WORD002 + 2, 0
  255.     FSeek INT002, INTEGER011 * 256 + 208, 0
  256.     FRead INT001, STRING015, 14
  257.     FRead INT002, STRING016, 48
  258.     FUNCTION005 = String(STRING015) + String(STRING016)
  259.  
  260.     EndFunc
  261.  
  262.  
  263. ;------------------------------------------------------------------------------
  264.  
  265.     Function FUNCTION006(String STRING017, Integer INTEGER012, Boolean BOOLEAN004) String
  266.  
  267.     String   STRING019
  268.  
  269.     If (BOOLEAN004) Then
  270.         FUNCTION006 = Left(STRING017, INTEGER012)
  271.     Else
  272.         FUNCTION006 = Left(Trim(Right(STRING017, INTEGER012), " "), INTEGER012)
  273.     Endif
  274.  
  275.     EndFunc
  276.  
  277.     :LABEL007
  278.     STRING026 = PPEPath() + "COLOR.CNF"
  279.     INT003 = 0
  280.     INT004 = 1
  281.     INT005 = 2
  282.     INT006 = 3
  283.     INT007 = 4
  284.     INT008 = 5
  285.     INT009 = 6
  286.     INT010 = 7
  287.     INT011 = 8
  288.     INT012 = 9
  289.     INT013 = 10
  290.     INT014 = 11
  291.     INT015 = 12
  292.     INT016 = 13
  293.     INT017 = 14
  294.     INT018 = 15
  295.     TSTRING037(0) = "@X1A"
  296.     TSTRING037(1) = "@X1C"
  297.     TSTRING037(2) = "@X07"
  298.     TSTRING037(3) = "@X0A"
  299.     TSTRING037(4) = "@X0A"
  300.     TSTRING037(5) = "@X0F"
  301.     TSTRING037(6) = "@X07"
  302.     TSTRING037(7) = "@X0E"
  303.     TSTRING037(8) = "@X0E"
  304.     TSTRING037(9) = "@X0E"
  305.     TSTRING037(10) = "@X0E"
  306.     TSTRING037(11) = "@X0F"
  307.     TSTRING037(12) = "@X07"
  308.     TSTRING037(13) = "@X06"
  309.     TSTRING037(14) = "@X06"
  310.     TSTRING037(15) = "@X07"
  311.     If (Exist(STRING026)) Then
  312.         For INTEGER015 = 1 To 16
  313.             TSTRING037(INTEGER015 - 1) = ReadLine(STRING026, INTEGER015)
  314.         Next
  315.     Endif
  316.     TSTRING020(0) = TSTRING037(INT004) + "»    " + TSTRING037(INT005)
  317.     TSTRING020(1) = TSTRING037(INT003) + "»" + TSTRING037(INT004) + "»   " + TSTRING037(INT005)
  318.     TSTRING020(2) = TSTRING037(INT003) + " »" + TSTRING037(INT004) + "»  " + TSTRING037(INT005)
  319.     TSTRING020(3) = TSTRING037(INT003) + "  »" + TSTRING037(INT004) + "» " + TSTRING037(INT005)
  320.     TSTRING020(4) = TSTRING037(INT003) + "   »" + TSTRING037(INT004) + "»" + TSTRING037(INT005)
  321.     TSTRING020(5) = TSTRING037(INT004) + "   «" + TSTRING037(INT003) + "»" + TSTRING037(INT005)
  322.     TSTRING020(6) = TSTRING037(INT004) + "  «" + TSTRING037(INT003) + "« " + TSTRING037(INT005)
  323.     TSTRING020(7) = TSTRING037(INT004) + " «" + TSTRING037(INT003) + "«  " + TSTRING037(INT005)
  324.     TSTRING020(8) = TSTRING037(INT004) + "«" + TSTRING037(INT003) + "«   " + TSTRING037(INT005)
  325.     TSTRING020(9) = TSTRING037(INT003) + "«    " + TSTRING037(INT005)
  326.     INTEGER024 = 2
  327.     INTEGER025 = 0
  328.     INTEGER027 = 6
  329.     BOOLEAN009 = 1
  330.     STRING033 = ""
  331.     BOOLEAN010 = 0
  332.     BOOLEAN011 = 0
  333.     BOOLEAN013 = 0
  334.     STRING021 = ReadLine(PCBDat(), 31) + ".@@@"
  335.     STRING022 = ReadLine(PCBDat(), 31) + ".ADD"
  336.     STRING023 = PPEPath() + PPEName() + ".CFG"
  337.     STRING027 = PPEPath() + PPEName() + ".CNF"
  338.     STRING034 = PPEPath() + "CNALT" + LangExt()
  339.     If (!Exist(STRING034)) STRING034 = PPEPath() + "CNALT"
  340.     STRING031 = PPEPath() + "CNTEXT" + LangExt()
  341.     If (!Exist(STRING031)) STRING031 = PPEPath() + "CNTEXT"
  342.     If (Exist(STRING034)) BOOLEAN011 = 1
  343.     INTEGER019 = FNext()
  344.     FOpen INTEGER019, STRING031, 0, 0
  345.     If (Ferr(INTEGER019)) Then
  346.         PrintLn "@X0CAn Error Occured. Notify SYSOP Immediately!! @X07"
  347.         Log "CNFN.PPE: Unable to open PROMPT FILE! MISSING or Corrupted", 0
  348.         Wait
  349.         End
  350.     Endif
  351.     For INTEGER015 = 1 To 5
  352.         FGet INTEGER019, TSTRING032(INTEGER015)
  353.     Next
  354.     FClose INTEGER019
  355.     INTEGER019 = FNext()
  356.     FOpen INTEGER019, STRING023, 0, 0
  357.     If (Ferr(INTEGER019)) Goto LABEL008
  358.     INTEGER021 = S2I(FUNCTION001(INTEGER019), 10)
  359.     Redim TSTRING024, INTEGER021
  360.     Redim TSTRING036, INTEGER021
  361.     Redim TINTEGER023, INTEGER021
  362.     Redim TBOOLEAN012, INTEGER021
  363.     For INTEGER015 = 1 To INTEGER021
  364.         TSTRING024(INTEGER015) = FUNCTION001(INTEGER019)
  365.         TSTRING036(INTEGER015) = FUNCTION001(INTEGER019)
  366.         STRING025 = FUNCTION001(INTEGER019)
  367.         If (Upper(STRING025) == "N") STRING025 = "0"
  368.         TINTEGER023(INTEGER015) = S2I(STRING025, 10)
  369.         TBOOLEAN012(INTEGER015) = (FUNCTION001(INTEGER019) == "Y")
  370.     Next
  371.     FClose INTEGER019
  372.     Goto LABEL009
  373.     :LABEL008
  374.     INTEGER021 = 1
  375.     TSTRING024(1) = "All Conferences"
  376.     TSTRING036(1) = "0-" + String(HiConfNum())
  377.     TINTEGER023(1) = 0
  378.     TBOOLEAN012(1) = 0
  379.     :LABEL009
  380.     INTEGER026 = (72 - INTEGER027 * INTEGER024) / INTEGER024
  381.     INTEGER019 = FNext()
  382.     FOpen INTEGER019, STRING027, 0, 0
  383.     If (Ferr(INTEGER019)) Then
  384.         PrintLn TSTRING032(1)
  385.         Log "CNFN.PPE: UNABLE TO OPEN CNF FILE! MISSING or Corrupted", 0
  386.         Wait
  387.         End
  388.     Endif
  389.     STRING028 = PPEPath() + FUNCTION001(INTEGER019)
  390.     STRING029 = PPEPath() + FUNCTION001(INTEGER019)
  391.     BOOLEAN006 = (Upper(FUNCTION001(INTEGER019)) == "Y")
  392.     BOOLEAN007 = (Upper(FUNCTION001(INTEGER019)) == "Y")
  393.     STRING030 = PPEPath() + FUNCTION001(INTEGER019)
  394.     INTEGER024 = S2I(FUNCTION001(INTEGER019), 10)
  395.     If ((INTEGER024 < 1) || (INTEGER024 > 9)) INTEGER024 = 2
  396.     BOOLEAN009 = (Left(Upper(FUNCTION001(INTEGER019)), 1) == "L")
  397.     FClose INTEGER019
  398.     INTEGER026 = (72 - INTEGER027 * INTEGER024) / INTEGER024
  399.     :LABEL010
  400.     If (Exist(STRING034)) Then
  401.         DispFile STRING034, 0
  402.     Else
  403.         Cls
  404.         DispFile STRING028, 2 + 1 + 4
  405.         Newline
  406.         For INTEGER015 = 1 To INTEGER021
  407.             PrintLn TSTRING037(INT006) + Right(String(INTEGER015), 3) + TSTRING037(INT007) + ") " + TSTRING037(INT008) + Left(TSTRING024(INTEGER015), 50) + TSTRING037(INT009)
  408.             If (Abort()) Break
  409.         Next
  410.     Endif
  411.     ResetDisp
  412.     Newline
  413.     BOOLEAN010 = 0
  414.     STRING025 = "1"
  415.     InputStr TSTRING037(INT010) + TSTRING032(2), STRING025, 7, 3, Mask_Num() + "sS", 256 + 0 + 2
  416.     If (Trim(Upper(STRING025), " ") == "S") BOOLEAN010 = 1
  417.     If (BOOLEAN010) Then
  418.         STRING025 = "1"
  419.         InputStr TSTRING037(INT011) + TSTRING032(5), STRING025, 7, 3, Mask_Num(), 256 + 0 + 2
  420.         PromptStr 70, STRING033, 48, Mask_Ascii(), 128 + 256 + 64 + 2 + 4 + 0
  421.         STRING033 = LTrim(RTrim(STRING033, " "), " ")
  422.         If (STRING033 == "") Goto LABEL010
  423.         Log "Conference Search for " + Upper(STRING033) + "via PPE", 0
  424.     Endif
  425.     INTEGER022 = S2I(STRING025, 10)
  426.     If ((INTEGER022 < 1) || (INTEGER022 > INTEGER021)) Then
  427.         PrintLn "@X0C" + TSTRING032(3) + "@X07"
  428.         Wait
  429.         Goto LABEL010
  430.     Endif
  431.     Cls
  432.     If ((BOOLEAN006 && !BOOLEAN007) && (CurSec() < TINTEGER023(INTEGER022))) Then
  433.         DispFile STRING030, 2 + 1 + 4
  434.         Wait
  435.         Goto LABEL010
  436.     ElseIf ((BOOLEAN006 && BOOLEAN007) && (CurSec() < TINTEGER023(INTEGER022))) Then
  437.         BOOLEAN008 = 0
  438.         For INTEGER015 = TINTEGER017(INTEGER022) To TINTEGER018(INTEGER022)
  439.             If (ConfReg(INTEGER015)) BOOLEAN008 = 1
  440.             Break
  441.         Next
  442.         If (BOOLEAN008) Goto LABEL011
  443.         DispFile STRING030, 2 + 1 + 4
  444.         Wait
  445.         Goto LABEL010
  446.     Endif
  447.     :LABEL011
  448.     DispFile STRING029, 2 + 1 + 4
  449.     Newline
  450.     INTEGER019 = FNext()
  451.     FOpen INTEGER019, STRING021, 0, 0
  452.     INTEGER020 = FNext()
  453.     FOpen INTEGER020, STRING022, 0, 0
  454.     FRead INTEGER019, WORD003, 2
  455.     Tokenize TSTRING036(INTEGER022)
  456.     INTEGER013 = TokCount()
  457.     Redim TINTEGER017, INTEGER013
  458.     Redim TINTEGER018, INTEGER013
  459.     For INTEGER014 = 1 To INTEGER013
  460.         STRING035 = GetToken()
  461.         If (InStr(STRING035, "-") > 0) Then
  462.             TINTEGER017(INTEGER014) = ToInteger(Left(STRING035, InStr(STRING035, "-") - 1))
  463.             TINTEGER018(INTEGER014) = ToInteger(Right(STRING035, Len(STRING035) - InStr(STRING035, "-")))
  464.             Continue
  465.         Endif
  466.         TINTEGER017(INTEGER014) = ToInteger(STRING035)
  467.         TINTEGER018(INTEGER014) = ToInteger(STRING035)
  468.     Next
  469.     For INTEGER014 = 1 To INTEGER013
  470.         For INTEGER015 = TINTEGER017(INTEGER014) To TINTEGER018(INTEGER014)
  471.             BOOLEAN005 = 1
  472.             BOOLEAN014 = 0
  473.             BOOLEAN013 = 0
  474.             STRING019 = FUNCTION005(INTEGER015, INTEGER019, INTEGER020, WORD003)
  475.             BOOLEAN013 = (STRING019 <> "")
  476.             If (BOOLEAN013) Then
  477.                 BOOLEAN014 = FUNCTION004(INTEGER019, INTEGER015, WORD003)
  478.                 BOOLEAN014 = !BOOLEAN014
  479.                 BOOLEAN005 = 1
  480.             Else
  481.                 BOOLEAN014 = 0
  482.                 BOOLEAN005 = 0
  483.             Endif
  484.             If (BOOLEAN010 && BOOLEAN005) Then
  485.                 BOOLEAN005 = InStr(Upper(STRING019), Upper(STRING033))
  486.             Endif
  487.             If (BOOLEAN005) Then
  488.                 If (BOOLEAN014) Goto LABEL012
  489.                 Print TSTRING037(INT012), Right(String(INTEGER015), INTEGER027), TSTRING037(INT013), "-", TSTRING037(INT014), FUNCTION006(STRING019, INTEGER026, BOOLEAN009), TSTRING037(INT015)
  490.                 If (GetX() > 65) PrintLn 
  491.                 Goto LABEL013
  492.                 :LABEL012
  493.                 If (BOOLEAN014 && TBOOLEAN012(INTEGER022)) Then
  494.                     Print TSTRING037(INT016), Right(String(INTEGER015), INTEGER027), TSTRING037(INT017), "-", TSTRING037(INT018), FUNCTION006(STRING019, INTEGER026, BOOLEAN009), TSTRING037(INT015)
  495.                     If (GetX() > 65) PrintLn 
  496.                 Else
  497.                     If (INTEGER016 > 9) INTEGER016 = 0
  498.                     Print TSTRING020(INTEGER016)
  499.                     Print Chr(8), Chr(8), Chr(8), Chr(8), Chr(8)
  500.                     Inc INTEGER016
  501.                 Endif
  502.                 :LABEL013
  503.             Else
  504.                 If (INTEGER016 > 9) INTEGER016 = 0
  505.                 Print TSTRING020(INTEGER016)
  506.                 Print Chr(8), Chr(8), Chr(8), Chr(8), Chr(8)
  507.                 Inc INTEGER016
  508.             Endif
  509.             If (Abort()) Break
  510.         Next
  511.     Next
  512.     ResetDisp
  513.     Print "     "
  514.     FCloseAll
  515.     Newline
  516.     End
  517.  
  518. ;------------------------------------------------------------------------------
  519. ;
  520. ; Usage report (before postprocessing)
  521. ;
  522. ; ■ Statements used :
  523. ;
  524. ;    4       End
  525. ;    2       Cls
  526. ;    5       Wait
  527. ;    76      Goto 
  528. ;    187     Let 
  529. ;    7       Print 
  530. ;    6       PrintLn 
  531. ;    59      If 
  532. ;    5       DispFile 
  533. ;    6       FOpen 
  534. ;    4       FClose 
  535. ;    2       FGet 
  536. ;    2       ResetDisp
  537. ;    3       Log 
  538. ;    2       InputStr 
  539. ;    1       PromptStr 
  540. ;    2       Inc 
  541. ;    4       Newline
  542. ;    1       Tokenize 
  543. ;    5       FSeek 
  544. ;    6       FRead 
  545. ;    6       Redim 
  546. ;    1       FCloseAll
  547. ;    6       EndFunc
  548. ;
  549. ;
  550. ; ■ Functions used :
  551. ;
  552. ;    7       *
  553. ;    2       /
  554. ;    124     +
  555. ;    5       -
  556. ;    14      ==
  557. ;    4       <>
  558. ;    15      <
  559. ;    10      <=
  560. ;    10      >
  561. ;    21      >=
  562. ;    45      !
  563. ;    29      &&
  564. ;    14      ||
  565. ;    6       Len(
  566. ;    8       Upper()
  567. ;    8       Left()
  568. ;    6       Right()
  569. ;    4       Ferr()
  570. ;    10      Chr()
  571. ;    1       Asc()
  572. ;    4       InStr()
  573. ;    2       Abort()
  574. ;    1       LTrim()
  575. ;    1       RTrim()
  576. ;    9       Trim()
  577. ;    7       String()
  578. ;    2       Mask_Num()
  579. ;    1       Mask_Ascii()
  580. ;    3       PCBDat()
  581. ;    10      PPEPath()
  582. ;    4       ReadLine()
  583. ;    4       CurSec()
  584. ;    1       GetToken()
  585. ;    6       Exist()
  586. ;    4       S2I()
  587. ;    2       LangExt()
  588. ;    2       GetX()
  589. ;    2       PPEName()
  590. ;    1       TokCount()
  591. ;    4       ToInteger()
  592. ;    3       ConfReg()
  593. ;    1       ConfExp()
  594. ;    1       HiConfNum()
  595. ;    6       FNext()
  596. ;
  597. ;------------------------------------------------------------------------------
  598. ;
  599. ; Analysis flags : d
  600. ;
  601. ; d - Access PCBOARD.DAT ■ 2
  602. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  603. ;     for many PPE so they can find various informations on the system
  604. ;     (system paths, max number of lines in messages, ...) but it may also
  605. ;     be a way to gather vital informations.
  606. ;     ■ Search for : PCBDAT()
  607. ;
  608. ;------------------------------------------------------------------------------
  609. ;
  610. ; Postprocessing report
  611. ;
  612. ;    10      For/Next
  613. ;    0       While/EndWhile
  614. ;    25      If/Then or If/Then/Else
  615. ;    0       Select Case
  616. ;
  617. ;------------------------------------------------------------------------------
  618. ;                 AEGiS Corp - Break the routines, code against the machines!
  619. ;------------------------------------------------------------------------------
  620.